home *** CD-ROM | disk | FTP | other *** search
/ Power Programmierung / Power-Programmierung (Tewi)(1994).iso / magazine / d_b_a / 87_01 / mail.sc < prev    next >
Text File  |  1986-12-05  |  2KB  |  55 lines
  1.  
  2. ;--------------------------------------- Mail.SC
  3.  
  4. ; By Alan Simpson
  5. ; based on his book "Mastering Paradox," in an excerpt published
  6. ; by Data Based Advisor, Vol. 5, No. 1, Jan. 1987
  7. ; Copyright 1986, Sybex Books, All Rights Reserved
  8. ; ---------- Script to integrate mailing system.
  9. CLEARALL
  10. ; ---------------- Display opening screen.
  11. STYLE ATTRIBUTE 30
  12. CLEAR
  13. @ 8,25
  14. ?? "Mailing List Management System"
  15. STYLE
  16. @ 10,1
  17. TEXT
  18.  
  19.           Select options from the menu above, either by highlighting
  20.           and pressing Enter or by typing in the first letter of
  21.           the option. Moving the highlight with the cursor arrow
  22.           keys display a brief description of each option.
  23.  
  24. ENDTEXT
  25. ;------------- Set up loop to repeat menu.
  26. Choice = " "
  27.  
  28. WHILE Choice <> "Exit"
  29.       ;---------------- Show Paradox-style menu.
  30.       SHOWMENU
  31.          "Add" : "Add new records",
  32.          "Sort" : "Sort data into alphabetical or zip code order",
  33.          "Print" : "Print directory, labels, or letters",
  34.          "Change" : "Change or delete data",
  35.          "Exit" : "Return to Paradox"
  36.       TO Choice
  37.       ;---------- Branch to new script based on choice.
  38.       SWITCH
  39.          CASE Choice = "Add" :
  40.               PLAY "AddNew"
  41.          CASE Choice = "Sort" :
  42.               PLAY "Sorter"
  43.          CASE Choice = "Print" :
  44.               PLAY "RepMenu"
  45.          CASE Choice = "Change" :
  46.               PLAY "EditDel"
  47.       ENDSWITCH
  48. ENDWHILE
  49. ;------------- Exit selected.
  50. CLEAR
  51. STYLE REVERSE
  52. @ 12,24
  53. ?? "Returning to Paradox main menu..."
  54. SLEEP 1000
  55.